home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 July / Macworld (1999-07).dmg / Shareware World / Info / For Developers / Mops 3.4.sea / Mops source / Extras / Undo < prev   
MacBinary  |  1994-11-02  |  3.4 KB  |  [TEXT/MSET]

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Undo

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
10% dexvert Jesper Olsen Module (music/jesperOlsen) magic Supported
1% dexvert Text File (text/txt) fallback Supported
100% file TTComp archive data, binary, 1K dictionary default (weak)
99% file MacBinary II, inited, Wed Nov 2 18:26:47 1994, modified Wed Nov 2 18:26:47 1994, creator 'MSET', type ASCII, 2904 bytes "Undo" , at 0xbd8 286 bytes resource default (weak)
98% file data default
49% TrID Macintosh plain text (MacBinary) default
33% TrID TTComp archive compressed (bin-1K) default (weak)
16% TrID MacBinary 2 default (weak)
0% TrID Sybase iAnywhere database files default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MSET]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 04 55 6e 64 6f 00 00 | 00 00 00 00 00 00 00 00 |..Undo..|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 53 45 | 54 01 00 00 00 00 00 00 |.TEXTMSE|T.......|
|00000050| 00 00 00 00 00 0b 58 00 | 00 01 1e aa dd d0 b7 aa |......X.|........|
|00000060| dd d0 b7 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d3 48 00 00 |........|.....H..|
|00000080| 5c 20 55 4e 44 4f 09 2d | 20 6d 72 68 09 41 75 67 |\ UNDO.-| mrh.Aug|
|00000090| 20 39 34 0d 0d 28 2a 0d | 54 68 69 73 20 66 69 6c | 94..(*.|This fil|
|000000a0| 65 20 69 73 20 61 20 66 | 69 72 73 74 20 74 72 79 |e is a f|irst try|
|000000b0| 20 61 74 20 69 6d 70 6c | 65 6d 65 6e 74 69 6e 67 | at impl|ementing|
|000000c0| 20 61 20 67 65 6e 65 72 | 69 63 20 55 4e 44 4f 20 | a gener|ic UNDO |
|000000d0| 66 61 63 69 6c 69 74 79 | 2e 20 20 54 68 65 0d 63 |facility|. The.c|
|000000e0| 6f 6e 63 65 70 74 20 69 | 73 20 61 63 74 75 61 6c |oncept i|s actual|
|000000f0| 6c 79 20 71 75 69 74 65 | 20 73 69 6d 70 6c 65 2c |ly quite| simple,|
|00000100| 20 62 75 74 20 69 74 20 | 73 68 6f 75 6c 64 20 61 | but it |should a|
|00000110| 6c 6c 6f 77 20 6a 75 73 | 74 20 61 62 6f 75 74 20 |llow jus|t about |
|00000120| 61 6e 79 20 6b 69 6e 64 | 0d 6f 66 20 55 4e 44 4f |any kind|.of UNDO|
|00000130| 20 79 6f 75 20 6d 69 67 | 68 74 20 77 61 6e 74 2e | you mig|ht want.|
|00000140| 0d 54 68 65 72 65 20 69 | 73 20 61 20 68 61 6e 64 |.There i|s a hand|
|00000150| 6c 65 4c 69 73 74 20 55 | 4e 44 4f 5f 4c 49 53 54 |leList U|NDO_LIST|
|00000160| 2e 20 20 45 61 63 68 20 | 6f 62 6a 65 63 74 20 69 |. Each |object i|
|00000170| 6e 20 74 68 69 73 20 6c | 69 73 74 20 75 6e 64 6f |n this l|ist undo|
|00000180| 65 73 20 73 6f 6d 65 0d | 61 63 74 69 6f 6e 2e 20 |es some.|action. |
|00000190| 20 48 65 72 65 27 73 20 | 74 68 65 20 77 61 79 20 | Here's |the way |
|000001a0| 79 6f 75 20 73 65 74 20 | 74 68 69 6e 67 73 20 75 |you set |things u|
|000001b0| 70 3a 0d 0d 31 2e 20 53 | 75 62 63 6c 61 73 73 20 |p:..1. S|ubclass |
|000001c0| 55 4e 44 4f 41 42 4c 45 | 5f 41 43 54 49 4f 4e 20 |UNDOABLE|_ACTION |
|000001d0| 66 6f 72 20 65 61 63 68 | 20 6b 69 6e 64 20 6f 66 |for each| kind of|
|000001e0| 20 61 63 74 69 6f 6e 20 | 79 6f 75 20 77 61 6e 74 | action |you want|
|000001f0| 20 74 6f 20 62 65 0d 75 | 6e 64 6f 61 62 6c 65 2e | to be.u|ndoable.|
|00000200| 20 20 53 65 65 20 74 68 | 65 20 65 78 61 6d 70 6c | See th|e exampl|
|00000210| 65 20 61 74 20 74 68 65 | 20 65 6e 64 20 66 6f 72 |e at the| end for|
|00000220| 20 68 6f 77 20 77 65 20 | 64 6f 20 74 68 69 73 20 | how we |do this |
|00000230| 66 6f 72 20 77 69 6e 64 | 6f 77 0d 72 65 73 69 7a |for wind|ow.resiz|
|00000240| 69 6e 67 20 28 6e 6f 74 | 20 61 6c 6c 20 74 68 61 |ing (not| all tha|
|00000250| 74 20 75 73 65 66 75 6c | 2c 20 62 75 74 20 77 68 |t useful|, but wh|
|00000260| 6f 20 63 61 72 65 73 2c | 20 69 74 27 73 20 61 6e |o cares,| it's an|
|00000270| 20 65 78 61 6d 70 6c 65 | 29 2e 0d 0d 32 2e 20 45 | example|)...2. E|
|00000280| 61 63 68 20 73 75 63 68 | 20 73 75 62 63 6c 61 73 |ach such| subclas|
|00000290| 73 20 73 68 6f 75 6c 64 | 20 68 61 76 65 20 61 6e |s should| have an|
|000002a0| 20 49 4e 49 54 3a 20 6d | 65 74 68 6f 64 20 74 68 | INIT: m|ethod th|
|000002b0| 61 74 20 73 61 76 65 73 | 20 77 68 61 74 65 76 65 |at saves| whateve|
|000002c0| 72 0d 69 6e 66 6f 20 69 | 74 20 6e 65 65 64 73 20 |r.info i|t needs |
|000002d0| 74 6f 20 64 6f 20 61 6e | 20 75 6e 64 6f 20 6f 66 |to do an| undo of|
|000002e0| 20 74 68 61 74 20 61 63 | 74 69 6f 6e 2e 20 20 54 | that ac|tion. T|
|000002f0| 68 65 20 6f 62 6a 65 63 | 74 20 6f 6e 20 77 68 69 |he objec|t on whi|
|00000300| 63 68 20 74 68 65 0d 61 | 63 74 69 6f 6e 20 74 6f |ch the.a|ction to|
|00000310| 20 62 65 20 70 65 72 66 | 6f 72 6d 65 64 20 77 69 | be perf|ormed wi|
|00000320| 6c 6c 20 62 65 20 70 6f | 69 6e 74 65 64 20 74 6f |ll be po|inted to|
|00000330| 20 62 79 20 74 68 65 20 | 70 74 72 20 4d 79 4f 62 | by the |ptr MyOb|
|00000340| 6a 65 63 74 2e 0d 54 68 | 69 73 20 6d 65 74 68 6f |ject..Th|is metho|
|00000350| 64 20 6d 75 73 74 20 73 | 74 61 72 74 20 62 79 20 |d must s|tart by |
|00000360| 63 61 6c 6c 69 6e 67 20 | 69 6e 69 74 3a 20 73 75 |calling |init: su|
|00000370| 70 65 72 2c 20 77 68 69 | 63 68 20 77 69 6c 6c 20 |per, whi|ch will |
|00000380| 73 65 74 20 75 70 20 4d | 79 4f 62 6a 65 63 74 2e |set up M|yObject.|
|00000390| 0d 0d 33 2e 20 54 68 65 | 20 73 75 62 63 6c 61 73 |..3. The| subclas|
|000003a0| 73 20 73 68 6f 75 6c 64 | 20 61 6c 73 6f 20 68 61 |s should| also ha|
|000003b0| 76 65 20 61 6e 20 55 4e | 44 4f 3a 20 6d 65 74 68 |ve an UN|DO: meth|
|000003c0| 6f 64 20 74 68 61 74 20 | 75 73 65 73 20 74 68 65 |od that |uses the|
|000003d0| 20 73 61 76 65 64 20 69 | 6e 66 6f 0d 74 6f 20 75 | saved i|nfo.to u|
|000003e0| 6e 64 6f 20 74 68 65 20 | 61 63 74 69 6f 6e 2e 20 |ndo the |action. |
|000003f0| 20 41 67 61 69 6e 20 74 | 68 65 20 74 61 72 67 65 | Again t|he targe|
|00000400| 74 20 6f 62 6a 65 63 74 | 20 77 69 6c 6c 20 70 6f |t object| will po|
|00000410| 69 6e 74 65 64 20 74 6f | 20 62 79 20 4d 79 4f 62 |inted to| by MyOb|
|00000420| 6a 65 63 74 2c 0d 73 6f | 20 79 6f 75 20 73 68 6f |ject,.so| you sho|
|00000430| 75 6c 64 20 73 65 6e 64 | 20 6c 61 74 65 2d 62 6f |uld send| late-bo|
|00000440| 75 6e 64 20 6d 65 73 73 | 61 67 65 73 20 74 6f 20 |und mess|ages to |
|00000450| 77 68 61 74 65 76 65 72 | 20 4d 79 4f 62 6a 65 63 |whatever| MyObjec|
|00000460| 74 20 70 6f 69 6e 74 73 | 20 74 6f 2e 0d 0d 34 2e |t points| to...4.|
|00000470| 20 59 6f 75 72 20 63 6c | 61 73 73 20 77 68 6f 73 | Your cl|ass whos|
|00000480| 65 20 6f 62 6a 65 63 74 | 73 20 61 72 65 20 74 6f |e object|s are to|
|00000490| 20 68 61 76 65 20 75 6e | 64 6f 61 62 6c 65 20 61 | have un|doable a|
|000004a0| 63 74 69 6f 6e 73 20 6f | 6e 20 74 68 65 6d 2c 20 |ctions o|n them, |
|000004b0| 6e 65 65 64 73 0d 74 68 | 65 20 61 70 70 72 6f 70 |needs.th|e approp|
|000004c0| 72 69 61 74 65 20 6d 65 | 74 68 6f 64 73 20 74 6f |riate me|thods to|
|000004d0| 20 62 65 67 69 6e 20 77 | 69 74 68 0d 5b 27 5d 20 | begin w|ith.['] |
|000004e0| 3c 75 6e 64 6f 61 62 6c | 65 2d 61 63 74 69 6f 6e |<undoabl|e-action|
|000004f0| 2d 63 6c 61 73 73 3e 20 | 6d 61 6b 65 5f 75 6e 64 |-class> |make_und|
|00000500| 6f 61 62 6c 65 0d 0d 54 | 68 61 74 27 73 20 69 74 |oable..T|hat's it|
|00000510| 2e 0d 0d 53 65 65 20 74 | 68 65 20 65 78 61 6d 70 |...See t|he examp|
|00000520| 6c 65 20 66 6f 72 20 68 | 6f 77 20 74 6f 20 64 6f |le for h|ow to do|
|00000530| 20 69 74 2e 0d 0d 41 20 | 66 75 6c 6c 65 72 20 69 | it...A |fuller i|
|00000540| 6d 70 6c 65 6d 65 6e 74 | 61 74 69 6f 6e 20 6f 66 |mplement|ation of|
|00000550| 20 74 68 69 73 20 69 64 | 65 61 20 77 6f 75 6c 64 | this id|ea would|
|00000560| 20 68 61 76 65 20 73 6f | 6d 65 20 77 61 79 20 74 | have so|me way t|
|00000570| 6f 20 75 70 64 61 74 65 | 20 75 6e 64 6f 5f 6c 69 |o update| undo_li|
|00000580| 73 74 0d 69 66 20 61 6e | 20 6f 62 6a 65 63 74 20 |st.if an| object |
|00000590| 77 69 74 68 20 6f 75 74 | 73 74 61 6e 64 69 6e 67 |with out|standing|
|000005a0| 20 75 6e 64 6f 61 62 6c | 65 20 61 63 74 69 6f 6e | undoabl|e action|
|000005b0| 73 20 69 73 20 64 65 6c | 65 74 65 64 2e 0d 0d 2a |s is del|eted...*|
|000005c0| 29 0d 0d 0d 6e 65 65 64 | 20 77 69 6e 64 6f 77 2b |)...need| window+|
|000005d0| 09 09 5c 20 6a 75 73 74 | 20 66 6f 72 20 74 68 65 |..\ just| for the|
|000005e0| 20 65 78 61 6d 70 6c 65 | 2c 20 61 63 74 75 61 6c | example|, actual|
|000005f0| 6c 79 0d 0d 0d 3a 63 6c | 61 73 73 20 55 4e 44 4f |ly...:cl|ass UNDO|
|00000600| 41 42 4c 45 5f 41 43 54 | 49 4f 4e 20 20 73 75 70 |ABLE_ACT|ION sup|
|00000610| 65 72 7b 20 6f 62 6a 65 | 63 74 20 7d 0d 0d 09 70 |er{ obje|ct }...p|
|00000620| 74 72 09 09 6d 79 4f 62 | 6a 65 63 74 0d 0d 3a 6d |tr..myOb|ject..:m|
|00000630| 20 53 45 54 5f 4f 42 4a | 45 43 54 3a 09 28 20 5e | SET_OBJ|ECT:.( ^|
|00000640| 6f 62 6a 20 2d 2d 20 29 | 09 09 70 75 74 3a 20 6d |obj -- )|..put: m|
|00000650| 79 4f 62 6a 65 63 74 20 | 20 3b 6d 0d 0d 3a 6d 20 |yObject | ;m..:m |
|00000660| 49 4e 49 54 3a 20 20 09 | 70 75 74 3a 20 6d 79 4f |INIT: .|put: myO|
|00000670| 62 6a 65 63 74 20 20 3b | 6d 0d 0d 3a 6d 20 55 4e |bject ;|m..:m UN|
|00000680| 44 4f 3a 09 3b 6d 09 09 | 5c 20 73 68 6f 75 6c 64 |DO:.;m..|\ should|
|00000690| 20 62 65 20 6f 76 65 72 | 72 69 64 64 65 6e 21 0d | be over|ridden!.|
|000006a0| 0d 3b 63 6c 61 73 73 0d | 0d 0d 5c 20 55 4e 44 4f |.;class.|..\ UNDO|
|000006b0| 5f 4c 49 53 54 5f 43 4c | 41 53 53 20 69 73 20 61 |_LIST_CL|ASS is a|
|000006c0| 20 6f 6e 65 2d 6f 66 66 | 20 63 6c 61 73 73 20 66 | one-off| class f|
|000006d0| 6f 72 20 69 6d 70 6c 65 | 6d 65 6e 74 69 6e 67 20 |or imple|menting |
|000006e0| 55 4e 44 4f 5f 4c 49 53 | 54 2e 20 20 4f 66 20 63 |UNDO_LIS|T. Of c|
|000006f0| 6f 75 72 73 65 2c 0d 5c | 20 49 20 67 75 65 73 73 |ourse,.\| I guess|
|00000700| 20 79 6f 75 20 6d 69 67 | 68 74 20 77 61 6e 74 20 | you mig|ht want |
|00000710| 6d 75 6c 74 69 70 6c 65 | 20 75 6e 64 6f 20 6c 69 |multiple| undo li|
|00000720| 73 74 73 2e 20 20 42 65 | 20 6d 79 20 67 75 65 73 |sts. Be| my gues|
|00000730| 74 2e 0d 0d 3a 63 6c 61 | 73 73 20 20 55 4e 44 4f |t...:cla|ss UNDO|
|00000740| 5f 4c 49 53 54 5f 43 4c | 41 53 53 20 20 73 75 70 |_LIST_CL|ASS sup|
|00000750| 65 72 7b 20 68 61 6e 64 | 6c 65 4c 69 73 74 20 7d |er{ hand|leList }|
|00000760| 0d 0d 09 76 61 72 09 09 | 4d 41 58 5f 55 4e 44 4f |...var..|MAX_UNDO|
|00000770| 53 0d 0d 3a 6d 20 53 45 | 54 4d 41 58 3a 09 70 75 |S..:m SE|TMAX:.pu|
|00000780| 74 3a 20 6d 61 78 5f 75 | 6e 64 6f 73 20 20 3b 6d |t: max_u|ndos ;m|
|00000790| 0d 0d 3a 6d 20 4e 45 57 | 4f 42 4a 3a 09 09 5c 20 |..:m NEW|OBJ:..\ |
|000007a0| 4f 76 65 72 72 69 64 69 | 6e 67 20 4e 65 77 4f 62 |Overridi|ng NewOb|
|000007b0| 6a 3a 20 6f 6e 20 68 61 | 6e 64 6c 65 4c 69 73 74 |j: on ha|ndleList|
|000007c0| 2e 20 20 49 66 20 77 65 | 27 72 65 20 61 74 20 74 |. If we|'re at t|
|000007d0| 68 65 0d 09 09 09 09 5c | 20 20 6d 61 78 20 6c 69 |he.....\| max li|
|000007e0| 6d 69 74 2c 20 77 65 20 | 64 65 6c 65 74 65 20 74 |mit, we |delete t|
|000007f0| 68 65 20 66 69 72 73 74 | 20 69 74 65 6d 2e 0d 09 |he first| item...|
|00000800| 09 09 09 0d 09 73 69 7a | 65 3a 20 73 65 6c 66 20 |.....siz|e: self |
|00000810| 20 67 65 74 3a 20 6d 61 | 78 5f 75 6e 64 6f 73 20 | get: ma|x_undos |
|00000820| 3e 3d 0d 09 49 46 09 30 | 20 73 65 6c 65 63 74 3a |>=..IF.0| select:|
|00000830| 20 73 65 6c 66 20 20 72 | 65 6d 6f 76 65 3a 20 73 | self r|emove: s|
|00000840| 65 6c 66 0d 09 54 48 45 | 4e 0d 09 6e 65 77 4f 62 |elf..THE|N..newOb|
|00000850| 6a 3a 20 73 75 70 65 72 | 20 20 3b 6d 0d 0d 3a 6d |j: super| ;m..:m|
|00000860| 20 43 4c 41 53 53 49 4e | 49 54 3a 09 31 30 30 20 | CLASSIN|IT:.100 |
|00000870| 20 70 75 74 3a 20 6d 61 | 78 5f 75 6e 64 6f 73 20 | put: ma|x_undos |
|00000880| 20 3b 6d 0d 0d 3b 63 6c | 61 73 73 0d 0d 0d 75 6e | ;m..;cl|ass...un|
|00000890| 64 6f 5f 6c 69 73 74 5f | 63 6c 61 73 73 09 55 4e |do_list_|class.UN|
|000008a0| 44 4f 5f 4c 49 53 54 0d | 0d 0d 3a 20 55 4e 44 4f |DO_LIST.|..: UNDO|
|000008b0| 20 20 7b 20 5c 20 69 6e | 64 65 78 20 2d 2d 20 7d | { \ in|dex -- }|
|000008c0| 0d 09 73 69 7a 65 3a 20 | 75 6e 64 6f 5f 6c 69 73 |..size: |undo_lis|
|000008d0| 74 20 20 30 45 58 49 54 | 0d 09 73 65 6c 65 63 74 |t 0EXIT|..select|
|000008e0| 4c 61 73 74 3a 20 75 6e | 64 6f 5f 6c 69 73 74 0d |Last: un|do_list.|
|000008f0| 09 63 75 72 72 65 6e 74 | 3a 20 75 6e 64 6f 5f 6c |.current|: undo_l|
|00000900| 69 73 74 20 20 2d 3e 20 | 69 6e 64 65 78 0d 09 6f |ist -> |index..o|
|00000910| 62 6a 3a 20 75 6e 64 6f | 5f 6c 69 73 74 20 20 75 |bj: undo|_list u|
|00000920| 6e 64 6f 3a 20 5b 5d 0d | 09 69 6e 64 65 78 20 73 |ndo: [].|.index s|
|00000930| 65 6c 65 63 74 3a 20 75 | 6e 64 6f 5f 6c 69 73 74 |elect: u|ndo_list|
|00000940| 09 09 09 5c 20 53 65 6e | 64 69 6e 67 20 75 6e 64 |...\ Sen|ding und|
|00000950| 6f 3a 20 70 72 6f 62 61 | 62 6c 79 20 61 64 64 65 |o: proba|bly adde|
|00000960| 64 20 61 0d 09 09 09 09 | 09 09 09 09 09 5c 20 20 |d a.....|.....\ |
|00000970| 6e 65 77 20 65 6c 65 6d | 65 6e 74 20 74 6f 20 74 |new elem|ent to t|
|00000980| 68 65 20 65 6e 64 0d 09 | 72 65 6d 6f 76 65 3a 20 |he end..|remove: |
|00000990| 75 6e 64 6f 5f 6c 69 73 | 74 20 20 3b 09 09 09 5c |undo_lis|t ;...\|
|000009a0| 20 46 69 6e 69 73 68 65 | 64 20 77 69 74 68 20 74 | Finishe|d with t|
|000009b0| 68 69 73 20 6f 6e 65 2c | 20 73 6f 20 64 65 6c 65 |his one,| so dele|
|000009c0| 74 65 20 69 74 0d 0d 0d | 3a 20 4d 41 4b 45 5f 55 |te it...|: MAKE_U|
|000009d0| 4e 44 4f 41 42 4c 45 09 | 09 5c 20 28 20 5e 75 6e |NDOABLE.|.\ ( ^un|
|000009e0| 64 6f 61 62 6c 65 5f 61 | 63 74 69 6f 6e 5f 73 75 |doable_a|ction_su|
|000009f0| 62 63 6c 61 73 73 20 2d | 2d 20 29 0d 09 6e 65 77 |bclass -|- )..new|
|00000a00| 4f 62 6a 3a 20 75 6e 64 | 6f 5f 6c 69 73 74 0d 09 |Obj: und|o_list..|
|00000a10| 5e 62 61 73 65 20 20 6f | 62 6a 3a 20 75 6e 64 6f |^base o|bj: undo|
|00000a20| 5f 6c 69 73 74 20 20 69 | 6e 69 74 3a 20 5b 5d 20 |_list i|nit: [] |
|00000a30| 20 75 6e 6c 6f 63 6b 3a | 20 75 6e 64 6f 5f 6c 69 | unlock:| undo_li|
|00000a40| 73 74 20 20 3b 0d 0d 0d | 5c 20 65 6e 64 6c 6f 61 |st ;...|\ endloa|
|00000a50| 64 0d 0d 0d 3a 63 6c 61 | 73 73 20 20 75 57 69 6e |d...:cla|ss uWin|
|00000a60| 64 53 69 7a 65 20 20 73 | 75 70 65 72 7b 20 75 6e |dSize s|uper{ un|
|00000a70| 64 6f 61 62 6c 65 5f 61 | 63 74 69 6f 6e 20 7d 0d |doable_a|ction }.|
|00000a80| 0d 09 72 65 63 74 09 6f | 6c 64 52 65 63 74 0d 09 |..rect.o|ldRect..|
|00000a90| 0d 3a 6d 20 49 4e 49 54 | 3a 20 20 28 20 5e 77 69 |.:m INIT|: ( ^wi|
|00000aa0| 6e 64 2d 6f 62 6a 20 2d | 2d 20 29 0d 09 69 6e 69 |nd-obj -|- )..ini|
|00000ab0| 74 3a 20 73 75 70 65 72 | 0d 09 67 65 74 3a 20 6d |t: super|..get: m|
|00000ac0| 79 4f 62 6a 65 63 74 20 | 20 67 65 74 52 65 63 74 |yObject | getRect|
|00000ad0| 3a 20 5b 5d 20 20 70 75 | 74 3a 20 6f 6c 64 52 65 |: [] pu|t: oldRe|
|00000ae0| 63 74 20 20 3b 6d 0d 0d | 3a 6d 20 55 4e 44 4f 3a |ct ;m..|:m UNDO:|
|00000af0| 0d 09 67 65 74 42 6f 74 | 3a 20 6f 6c 64 52 65 63 |..getBot|: oldRec|
|00000b00| 74 20 20 67 65 74 3a 20 | 6d 79 4f 62 6a 65 63 74 |t get: |myObject|
|00000b10| 20 20 73 69 7a 65 3a 20 | 5b 5d 20 20 3b 6d 0d 0d | size: |[] ;m..|
|00000b20| 3b 63 6c 61 73 73 0d 0d | 0d 3a 63 6c 61 73 73 20 |;class..|.:class |
|00000b30| 20 75 57 69 6e 64 6f 77 | 20 20 73 75 70 65 72 7b | uWindow| super{|
|00000b40| 20 77 69 6e 64 6f 77 2b | 20 7d 0d 0d 3a 6d 20 53 | window+| }..:m S|
|00000b50| 49 5a 45 3a 20 20 28 20 | 78 20 79 20 2d 2d 20 29 |IZE: ( |x y -- )|
|00000b60| 0d 09 5b 27 5d 20 75 57 | 69 6e 64 53 69 7a 65 20 |..['] uW|indSize |
|00000b70| 20 6d 61 6b 65 5f 75 6e | 64 6f 61 62 6c 65 0d 09 | make_un|doable..|
|00000b80| 73 69 7a 65 3a 20 73 75 | 70 65 72 20 20 3b 6d 0d |size: su|per ;m.|
|00000b90| 0d 3b 63 6c 61 73 73 0d | 0d 0d 75 57 69 6e 64 6f |.;class.|..uWindo|
|00000ba0| 77 20 57 57 0d 76 69 65 | 77 09 56 56 0d 0d 3a 20 |w WW.vie|w.VV..: |
|00000bb0| 47 4f 09 34 20 73 65 74 | 6d 61 78 3a 20 75 6e 64 |GO.4 set|max: und|
|00000bc0| 6f 5f 6c 69 73 74 0d 09 | 09 76 76 20 74 65 73 74 |o_list..|.vv test|
|00000bd0| 3a 20 77 77 20 20 3b 0d | 00 00 00 00 00 00 00 00 |: ww ;.|........|
|00000be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000c10| ee ff f4 20 d9 20 d9 29 | 7d b3 b3 50 01 03 5a 76 |... . .)|}..P..Zv|
|00000c20| ca 2a 90 7f ae 71 78 56 | 52 51 58 16 22 68 00 78 |.*...qxV|RQX."h.x|
|00000c30| 04 55 6e 64 6f d2 02 00 | 00 00 50 61 72 74 53 49 |.Undo...|..PartSI|
|00000c40| 54 21 00 00 00 00 00 00 | 00 00 00 01 81 da 00 00 |T!......|........|
|00000c50| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 b3 66 c2 71 00 00 | 00 00 00 00 01 1e 20 d9 |...f.q..|...... .|
|00000c80| 3d 6e 2f 2d 04 4a 2d f6 | bd 67 7a 42 ae 26 ce 01 |=n/-.J-.|.gzB.&..|
|00000c90| ff c8 76 26 d0 6c 12 ff | ca 3d 7c 6c 01 ff cc d0 |..v&.l..|.=|l....|
|00000ca0| 6c 01 ff ce 76 30 01 cc | cc 12 ff d0 3d 7c 02 cc |l...v0..|....=|..|
|00000cb0| cc ff d2 d0 6c 01 ff d4 | 76 31 11 40 00 11 ff d6 |....l...|v1.@....|
|00000cc0| d0 32 01 ff d8 d0 32 01 | ff da 76 33 57 01 ff d0 |.2....2.|..v3W...|
|00000cd0| 12 aa 14 48 6e 26 12 aa | 15 48 6e ca 12 a8 a2 48 |...Hn&..|.Hn....H|
|00000ce0| 6e 01 ff ca 35 33 34 2c | 36 26 02 aa 14 60 18 11 |n...534,|6&...`..|
|00000cf0| 47 ed 01 ff ba 57 ca 52 | 11 a8 a5 37 12 ff b2 48 |G....W.R|...7...H|
|00000d00| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000d10| 00 00 00 00 00 00 00 00 | 00 1c 00 1e ff ff 00 00 |........|........|
|00000d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+